Top 10k strings from Fisherman's Friend (1996)(JA Software)(48-128k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
6 A$="MAGGOTS"
5 A$="TARES"
5 A$="SWEETCORN"
3 A$="CASTERS"
3 A$="BOILIES"
3 A$="???????"
2 MACHINE=128
2 F$="TENCH"
2 F$="ROACH"
2 F$="BE MORE CAREFUL ON WHAT HOOKS YOU CHOOSE."
2 ;"YOU HAVE NO BAIT ON THE HOOK!!!":
2 ;"FISHING":
2 ;"(";M$;")"
2 ;" - BAIT - "
2 "SWEETCORN"
2 "MAGGOTS","CASTERS","TARES","BOILIES","SWEETCORN"
1 Z$="O4N10CCCCCCCCCC3C7&1G1F1G1F1G1F1G1F1G1F1G1F1E"
1 YY+Y+YYY>2
1 Y+YY+YYY>1
1 Y$="T130NO4N5A5F5A5F3A3F3A3F5A5F7&9E"
1 X$="T130N5C5F5C5F3C3F3C3F5C1F5F7&9C"
1 VERSION=1.305
1 This program may be freely distributed, provided it is not altered in any way. You may modify it only for your own use.
1 TUNE BELOW !!(BOOGAA)
1 R$="YOU'RE USELESS!!"
1 R$="YOU DEGREE OF SKILL IS VERY HIGH!!"
1 R$="WHAT ARE YOU PLAYING THIS INFERIOR GAME FOR?"
1 R$="VERY WELL DONE INDEED. WORLD CLASS NEXT...."
1 R$="VERY GOOD INDEED."
1 R$="SUPERB WORK FOR 15 MINS!!"
1 R$="PRACTICE IS VITAL!!!"
1 R$="GOOD FISHING TODAY."
1 R$="EXCELLENT WORK. WELL DONE."
1 PTS=PTS+150
1 PRINT OVER 1; BRIGHT 1; PAPER 6; INK 0; AT 0,0;"________________________________"
1 PRESS > BUTTON TO PUT TIME UP TO 15 MINUTES!!
1 POKE 23607,60 FOR NORMAL CHRSET
1 POKE 23607,60
1 POKE 23606,0: PRINT OVER 1; INK 0; AT 3,7;"__________________"
1 OTHER FOOT (F)
1 MACHINE=48
1 M$="SQUATTS":
1 M$="PINKIES":
1 M$="GOZZERS":
1 Last update:11-8-96
1 LOAD *"M";1;"FISHFONT" CODE 63744: POKE 23606,0: POKE 23607,248
1 LOAD *"M";1;"CHRSET" CODE
1 LINE 10:stop
1 LET A=15616: FOR B=63744 TO 65535: POKE B, PEEK A: LET A=A+1: NEXT B
1 INIT CHARSET
1 HEAD / BODY
1 Fishing
1 FOOT(JUMP) "E"
1 FISH=FISH+2
1 FISH=FISH+1
1 FISH GRAPH "C"
1 FH;"%";" "
1 FADER - R.U. 60059
1 F$="YOU'RE NOT ONE FOR GOOD BAIT CHOICES!!"
1 F$="YOU'RE ABSOLUTELY $%&@%&!
1 F$="YOU CHOSE HOOKS WELL."
1 F$="I GET THE IMPRESSION YOU ARE NO GOOD AT FISHING!!"
1 F$="GOOD CHOICE OF HOOKS/BAIT."
1 F$="DON'T YOU KNOW HOW TO FISH?!"
1 F$="BAIT WELL CHOSEN."
1 DISABLE BREAK KEY
1 BAIT=BAIT-2
1 BAIT=BAIT-1
1 ;''"PRESS ANY KEY TO CONTINUE..."
1 ;''"*** ";P$:
1 ;'" Fisherman's Friend v";version;'"
1 ;"WHAT SIZE? (2 - 20)"
1 ;"Total mins:;";TT
1 ;"Q U I T":
1 ;"PTS:";PTS
1 ;"PRESS APPROPRIATE KEY...."
1 ;"Mins;";TT:
1 ;"Mins;";TT
1 ;"HERE IS TODAY'S FISHING REPORT FOR YOU:"'
1 ;"BITE-O-METER
1 ;"BAIT IN USE:";
1 ;"* SQUATTS"'''"* GOZZERS"'''"* PINKIES"
1 ;"(CONTINUING GAME)"
1 ;" by Joseph Aron. "
1 ;" Version ";VERSION;" ";
1 ;" FISHERMAN'S FRIEND ";
1 ;" PRESS ANY KEY..."
1 ;" - INSTRUCTIONS - "
1 ;" - HOOK SIZE - "
1 ;" - MAIN MENU - "
1 ;" - INFO - "
1 ;" ":
1 ;" "
1 1990-96 JOSEPH ARON"'':
1 1990-1996 Joseph Aron
1 128K "PING"ROUTINE
1 ''''''" YOU HAVE NOT YET ENTERED "''" ENOUGH INFORMATION"''" TO GO TO THE RIVER."'''" CHOOSE BAIT AND A HOOK FIRST.":
1 '''" YOU HAVE HOOK SIZE ";H;" IN USE AT THE MOMENT."
1 '''" BARBED OR NOT?"'',"(Y / N)"
1 ''' " YOU HAVE NOT CHOSEN A HOOK YET!":
1 ''"YOU HAVE SELECTED HOOK SIZE ";H;"."
1 ''"YOU CHOSE ";M$;".":
1 ''"INPUT NAME OF BAIT FROM LIST BELOW :"
1 ''" 1.) SELECT HOOK SIZE"
1 '' " THE END"
1 '"USING THIS BAIT YOU PROBABLY WILL CATCH CARP, CHUB OR TENCH."
1 '"USING THE UP & DOWN CURSOR KEYS"'"YOU CAN MOVE THE LINE UP AND DOWN."'"YOU HAVE TO CATCH AS MANY"'"FISH AS YOU CAN IN 15 MINUTES."
1 '" YOU SELECTED ";A$;" AS BAIT."
1 '" YOU HAVE NOT YET SELECTED BAIT.":
1 '" THIS HOOK IS NOT BARBED."
1 '" ISN'T YOUR HOOK TOO SMALL?"
1 '" ISN'T YOUR HOOK TOO BIG?"
1 '" FOR THIS BAIT I RECOMMEND HOOK 16,18 OR 20."
1 '" DURING THE GAME YOU MAY CHANGE YOUR HOOK, BAIT ETC."'"BY PRESSING H OR B. ~Q~ WILL STOP THE GAME, BUT NOT THE COMPUTER."
1 '" A SIZE 10,12,OR 14 HOOK IS THE SIZE I RECOMMEND FOR THIS BAIT."
1 '" 5.) GO FISHING!!"
1 '" 4.) DISPLAY INFO."
1 '" 3.) LIST CONTROLS"
1 '" 2.) SELECT BAIT"
1 '" THIS HOOK IS BARBED.":
1 '" ISN'T YOUR HOOK TOO SMALL?"
1 '" ISN'T YOUR HOOK A BIT BIG?"
1 '" YOU ARE USING ";A$;" AS BAIT";:
1 ' "I RECOMMEND A HOOK SIZED 14-16."
1 "WHAT TYPE? (S,P,G) ";
1 "WHAT SIZE?(2 - 20) ";H
1 "UX10000W0O4T200N4D1DED4D","U4#F1GAG4#F","U4A1ABA4A"
1 "UPDATING BACKUP...":
1 "REPLACE BAIT TO:";
1 "POINTS ARE AWARDED FOR"'"EACH FISH YOU CATCH."
1 "BARBED? (Y / N) ;";
1 ","'" THE TYPE ARE ";M$;"."
1 " SELECT TYPE..."'';
1 " ";MACHINE;"K VERSION."''" Press any key..."
1 " REPORT"
1 L O O P Wow! What an amazing program by Joseph Aron! De-bugged/modified Dec.'92
1